home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / ChipCD 6.02.iso / software / iesuite / iesuite.CAB / c1.h1 < prev    next >
Text File  |  2002-04-16  |  823b  |  32 lines
  1. <SCRIPT LANGUAGE=VBScript>
  2. dim refpath,ext, fs,f,file
  3. refpath="%path%\"
  4. set ext = window.external.menuArguments
  5.  
  6. //±ετΣασ∞ εß·σΩ≥ Σδ  Σε±≥≤∩α Ω ⌠αΘδεΓεΘ ±Φ±≥σ∞σ
  7. Set fs = CreateObject("Scripting.FileSystemObject")
  8.  
  9. //≤ßσΣΦ∞± , ≈≥ε ∩α∩Ωα Σδ  ≡σ⌠σ≡α≥εΓ ±≤∙σ±≥Γ≤σ≥, σ±δΦ φσ≥ ±ετΣαΣΦ∞
  10. if Not fs.FolderExists(refpath) then set f=fs.CreateFolder(refpath)
  11.  
  12. //ε≥Ω≡√Γασ∞ ΦδΦ ±ετΣασ∞ ⌠αΘδ ≡σ⌠σ≡α≥α ± Φ∞σφσ∞, ±εε≥Γσ≥±≥Γ≤■∙Φ∞ ταπεδεΓΩ≤ εΩφα
  13. Set file = fs.OpenTextFile(refpath+ext.document.title+".htm",8,true)
  14.   
  15.  
  16. //∩εδ≤≈ασ∞ Γ√Σσδσφφ√Θ ⌠≡απ∞σφ≥
  17. set selrange = ext.document.selection.createRange()
  18.  
  19. // ΣεßαΓδ σ∞ url ΣεΩ≤∞σφ≥α Φ Σα≥≤
  20. file.writeline (ext.document.url)
  21. file.writeline (date)
  22.  
  23.  
  24. //ΣεßαΓδ σ∞ σπε Ω ⌠αΘδ≤
  25. file.write(selrange.htmlText)
  26.  
  27. file.writeline ()
  28. file.writeline ()
  29.  
  30. file.Close()
  31. </SCRIPT>
  32.